#!/usr/bin/perl -w

use English;

sub mysub {
		my @a = @_;

        return $a[0] + $a[1];

}

$res = mysub 12,100;
print $res . "\n";
